home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / demo / eaton1.dem < prev    next >
Encoding:
Text File  |  2003-02-09  |  384 b   |  13 lines

  1. /* Solution of Simultaneous Differential Equations */
  2.  
  3. EQ1:3*'DIFF(F(X),X,2)-2*'DIFF(G(X),X)=SIN(X);
  4. EQ2:A*'DIFF(G(X),X,2)+'DIFF(F(X),X)=A*COS(X);
  5. ATVALUE(G(X),X=0,1)$
  6. ATVALUE('DIFF(F(X),X),X=0,0)$
  7. ATVALUE('DIFF(G(X),X),X=0,1)$
  8. LAPLACE_EQ1:LAPLACE(EQ1,X,S);
  9. LAPLACE_EQ2:LAPLACE(EQ2,X,S);
  10. SOLVE([LAPLACE_EQ1,LAPLACE_EQ2],
  11.          ['LAPLACE(F(X),X,S),'LAPLACE(G(X),X,S)]);
  12. ILT(%,S,X);
  13.